<script>on mouseDownif there is a bg fld "Calendar" thensend "drawCalendar " & quote & me & quote to bg fld "Calendar"end ifpass mouseDownend mouseDown</script>
</part>
<part>
<id>18</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>384</left>
<top>178</top>
<right>483</right>
<bottom>197</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Palatino</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Go To Today</name>
<script>on mouseUpgoToTodayend mouseUp</script>
</part>
<part>
<id>19</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>384</left>
<top>153</top>
<right>483</right>
<bottom>172</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Palatino</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Find…</name>
<script>on mouseUpglobal AppointmentsFindask "What text do you want to find?" with AppointmentsFind -- ∆if it is empty then exit mouseUpelseput it into AppointmentsFindfindTextend ifend mouseUp</script>
</part>
<part>
<id>22</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>378</left>
<top>281</top>
<right>418</right>
<bottom>326</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>24081</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Address</name>
<script>on mouseUpset cursor to watchput "Addresses with Audio" into theStack-- stack will open in new window if there's enough memorygo stack theStack in a new window -- ∆get the resultif it is "Cancel" then exit mouseUpif it is not empty thengo stack theStack -- ∆if the result ≠ emptythen answer "Can't find that stack" && quote & theStack & quote--∆end ifend mouseUp</script>
</part>
<part>
<id>23</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>456</left>
<top>283</top>
<right>489</right>
<bottom>324</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>22978</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Home</name>
<script>on mouseUpset cursor to watchgo homeend mouseUp</script>
</part>
<part>
<id>63</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>384</left>
<top>204</top>
<right>483</right>
<bottom>223</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Palatino</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name> Go To A Day...</name>
<script>on mouseUpgoToADayend mouseUp</script>
</part>
<part>
<id>64</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>362</left>
<top>24</top>
<right>501</right>
<bottom>125</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Calendar</name>
<script>on mouseUp-- Go the the date selected.convert the date to dateItems -- Get the current date.put the clickText into dateSelected -- Get the selected date.-- Make sure that the person has selected a day an not something else.-- Delete the non-breaking space character if it is there.if first char of dateSelected is " " then delete char 1 of dateSelectedif ((dateSelected is an integer) and (dateSelected ≥ 1) ¬and (number of chars in dateSelected ≤ 2)) ¬and word 2 of the clickLine is 3thenselect the clickChunk -- Give the user a visual indication.put currentMonth(dateSelected) into dateSelected -- Get selected date.if there is a card dateSelected then -- Go to the day if there is one…if short name of this cd ≠ dateSelected thengo card dateSelectedelse select emptyelse if askForExtension(dateSelected) -- or ask to create a new one.then extend dateSelectedend ifcheckForTodayend mouseUpfunction currentMonth theDay-- Return the currently displayed month.if theDay is empty then put 1 into theDayput word 1 of me && theDay & "," && word 2 of me into returnValueconvert returnValue to dateItemsreturn returnValueend currentMonthfunction monthTitle theDate-- Get the name of the month to display in the title.convert theDate to long datereturn word 2 of theDate & " " & last word of theDateend monthTitleon updateCalendar-- Make sure the calendar is up to date.-- Note: This routine is called from an openStack handler.convert the date to dateItems -- Get today's date.-- Don't update if the current year/month is currently shown.if item 1 to 2 of currentMonth() ≠ item 1 to 2 of itthendrawCalendar itelse -- Just update the day for this month.markToday item 3 of itend ifend updateCalendaron drawMonth whichMonth-- Determine which month to draw and then draw the calendar.put currentMonth() into theDateif whichMonth is "prev" thenif item 2 of theDate is "1" thenput "12" into item 2 of theDatesubtract 1 from item 1 of theDateelse subtract 1 from item 2 of theDateelse if whichMonth is "next" thenif item 2 of theDate is "12" thenput "1" into item 2 of theDateadd 1 to item 1 of theDateelse add 1 to item 2 of theDateend ifdrawCalendar theDateend drawMonthon drawCalendar theDisplayMonth-- Draw the current calendar.-- Notes: The display month parameter should be the first of the month.-- The month display depends upon a mono-spaced character field.-- This value should be the length of each day field.put 3 into DayCharWidth-- Make sure that the date is the first.convert theDisplayMonth to dateItemsput 1 into item 3 of theDisplayMonth-- Get a value that we will use to compute days in this month.convert theDisplayMonth to seconds-- Add 32 days to the currently displayed month (60*60*24*32) = 2764800put theDisplayMonth + 2764800 into nextMonthconvert nextMonth to dateItemsput item 3 of nextMonth - 2 into DaysInMonthOffset-- Get some remaining values that we will use a few times.convert theDisplayMonth to dateItems-- To shift the starting day of the week, set StartDayShift to-- correct shift values (ie. put 1 into StartDayShift -- for Sunday-- put 2 into StartDayShift -- for Monday).put 1 into StartDayShift -- for start day Sunday-- Provide for starting on alternate days of the week.put ((13 - item 7 of theDisplayMonth + StartDayShift) mod 7) ¬into theDayofWeeklock screen-- Note: Single digit days are preceeded by a non-breaking space-- to preserve field formatting.put monthTitle(theDisplayMonth) & return & ¬" S M T W T F S" & return & ¬char (theDayofWeek * DayCharWidth) + 1 to ¬((37 * DayCharWidth) - (DaysInMonthOffset * DayCharWidth)) of ¬("  1 " & ¬" 2  3  4  5  6  7  8 " & ¬" 9 10 11 12 13 14 15 " & ¬"16 17 18 19 20 21 22 " & ¬"23 24 25 26 27 28 29 " & ¬"30 31") into me-- Format the title and header.setHeader-- If the displayed month is current then hilite the day.convert the date to dateItems -- Get the current Month.if item 1 to 2 of theDisplayMonth is item 1 to 2 of itthen markToday item 3 of itunlock screenend drawCalendaron setHeaderset the textStyle of me to "Plain"set the textFont of word 1 to 2 of me to "Geneva"set the textSize of word 1 to 2 of me to "12"set the textStyle of word 1 to 2 of me to "Bold,Condense"end setHeaderon markToday theNewDay-- Mark the current day by setting its textStyle to bold.-- Undo old styling.set textStyle of line 3 of me to plain-- Set new bolding.set textStyle of word theNewDay of line 3 of me to bold,condenseend markToday</script>
</part>
<part>
<id>66</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>384</left>
<top>229</top>
<right>483</right>
<bottom>248</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Palatino</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Next Appt.</name>
<script>on mouseUpput the number of this card into numberOfThisCardput the number of cards in this bkgnd into numberOfCardslock screenput (short name of this card) into cardNamerepeat with i = numberOfThisCard to numberOfCardsset cursor to busycheckCardNumber numberOfCards,cardNamego card i + 1if userFieldsAreEmpty() is not "true" then exit repeatend repeatunlock screenend mouseUpon checkCardNumber numberOfCards,cardNameif the number of this card is numberOfCards thenput "There are no later appointments scheduled." into theStringgoToADay theString,cardNameexit to HyperCardend ifend checkCardNumber</script>
</part>
<part>
<id>43</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>476</left>
<top>25</top>
<right>488</right>
<bottom>45</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>23718</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Month Prev</name>
<script>on mouseUp-- Tell the month caledar to draw the previous month-- (or just update the calendar if the option key is down).if there is a bg fld "Calendar" thenif the optionKey is down thensend "updateCalendar" to bg fld "Calendar"else send "drawMonth prev" to bg fld "Calendar"end ifpass mouseUpend mouseUp</script>
</part>
<part>
<id>42</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>488</left>
<top>25</top>
<right>500</right>
<bottom>45</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>23717</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Month Next</name>
<script>on mouseUp-- Tell the month caledar to draw the next month-- (or just update the calendar if the option key is down).if there is a bg fld "Calendar" thenif the optionKey is down thensend "updateCalendar" to bg fld "Calendar"else send "drawMonth next" to bg fld "Calendar"end ifpass mouseUpend mouseUp</script>
<text><span class="style212">pril 1991</span><span class="style3"> S M T W T F S  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 </span><span class="style215">24</span><span class="style3"> 25 26 27 28 29 30 </span></text>
</content>
<content>
<layer>background</layer>
<id>150</id>
<text>6a</text>
</content>
<content>
<layer>background</layer>
<id>151</id>
<text>7</text>
</content>
<content>
<layer>background</layer>
<id>152</id>
<text>8</text>
</content>
<content>
<layer>background</layer>
<id>153</id>
<text>9</text>
</content>
<content>
<layer>background</layer>
<id>154</id>
<text>10</text>
</content>
<content>
<layer>background</layer>
<id>155</id>
<text>11</text>
</content>
<content>
<layer>background</layer>
<id>156</id>
<text>12</text>
</content>
<content>
<layer>background</layer>
<id>157</id>
<text>1p</text>
</content>
<content>
<layer>background</layer>
<id>158</id>
<text>2</text>
</content>
<content>
<layer>background</layer>
<id>159</id>
<text>3</text>
</content>
<content>
<layer>background</layer>
<id>160</id>
<text>4</text>
</content>
<content>
<layer>background</layer>
<id>161</id>
<text>5</text>
</content>
<content>
<layer>background</layer>
<id>162</id>
<text>6p</text>
</content>
<content>
<layer>background</layer>
<id>163</id>
<text>7</text>
</content>
<content>
<layer>background</layer>
<id>164</id>
<text>8</text>
</content>
<content>
<layer>background</layer>
<id>165</id>
<text>9</text>
</content>
<content>
<layer>background</layer>
<id>166</id>
<text>10</text>
</content>
<content>
<layer>background</layer>
<id>167</id>
<text>11</text>
</content>
<content>
<layer>background</layer>
<id>168</id>
<text>12</text>
</content>
<content>
<layer>background</layer>
<id>169</id>
<text>1a</text>
</content>
<content>
<layer>background</layer>
<id>170</id>
<text>2</text>
</content>
<content>
<layer>background</layer>
<id>171</id>
<text>3</text>
</content>
<content>
<layer>background</layer>
<id>172</id>
<text>4</text>
</content>
<content>
<layer>background</layer>
<id>173</id>
<text>5</text>
</content>
<name>Appointments</name>
<script>∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞Background Script From Stack: AppointmentsTHE MESSAGE HANDLERS USED IN THIS SCRIPT:arrowKey,hidePopUp,closeBackground,closeCard,extend,findText,goToADay,goToToday,checkForToday,hideShowPopUp,openBackground,openCard,printReport,resetAPButtons,returnKey,setCardToTodaysDate,setCardNameTHE FUNCTION HANDLERS USED IN THIS SCRIPT:askForExtension,printOneReport,popObject,whichLayer,userFieldsAreEmpty"--∆" indicates strings which will need localization∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞----- System Handlers ---------------------------------------------on openStackif number of cards of this bg > 1 then goToTodayelse setCardToTodaysDateif there is a bg fld "Calendar"then send "updateCalendar" to bg fld "Calendar"pass openStackend openStackon openCardcheckForTodaypass openCardend openCardon closeCardhidePopUppass closeCardend closeCardon returnKey-- if the cursor is not in a field or in the message box, then-- assume they want to find the text again.global AppointmentsFindif AppointmentsFind is not empty and the selectedField is emptythen findText else pass returnKeyend returnKey----- Navigation Handlers -----------------------------------------on goToADay theString,cardNameset cursor to watch -- for slower machinesput "What date would you like to go to now (MM/DD/YY)?" into prompt -- ∆if theString is not empty then put theString & ¬return & prompt into promptget the short daterepeatask prompt with itif (the result is "Cancel") or (it is empty) thengo to card cardNameexit to HyperCardend ifconvert it to dateItemsif the result = empty then exit repeatput "Please make sure it's a valid date and use this format (MM/DD/YY)." into prompt -- ∆end repeatlock screengo card itif the result ≠ empty then if askForExtension(it) then extend itunlock screenend goToADayon goToTodayset cursor to watch -- for slower machines-- go to a card with today's dateget the long dateconvert it to dateItemslock screengo card itif the result is not empty then if askForExtension(it) then extend itif there is a bg fld "Calendar"then send "updateCalendar" to bg fld "Calendar"unlock screenend goToTodayon newCardglobal CheckNewCardif CheckNewCard is "False" then pass newCardput "What date would you like this card to be?" into prompt --∆repeatask prompt & ¬return & "(MM/DD/YY)" with the short dateif (the result is "Cancel") or (it is empty) then exit to HyperCardelse convert it to dateItemsif the result is empty then exit repeatput "Please make sure it's a valid date and use this format" into prompt --∆end repeatput it into theDateItemsif there is a cd it thenanswer "That card already exists. What would you like done?" & return & ¬"1. Delete the original card and keep this one," & return & ¬"2. Delete this card and keep the original," & return & ¬"3. Keep both cards with the same date," with "1" or "2" or "3" --∆lock screenset lockMessages to trueput the resultif it is 1 thengo cd theDateItemsdoMenu "Delete Card"go recent cdelse if (it is 2) or (it is empty) thendoMenu "Delete Card"go recent cdexit to HyperCardend ifend ifset name of this card to theDateItemsput theDateItems into theDateconvert theDateItems to long dateput theDateItems into bg field "Title"set lockMessages to falsesort cards of this bkgnd dateTime by bg field "Title"go cd theDateunlock screenpass newCardend newCard____________________________________________________________________function askForExtension theDateconvert theDate to long dateif the optionKey is down then return trueanswer "There is no appointment card for that date." &&¬"Do you want a card added for" && theDate & "?" ¬with "Cancel" or "OK" -- ∆if it is "Cancel" then lock screen -- removes selectionif it is "OK" then return true -- ∆else return falseend askForExtensionon extend theDateItemsglobal CheckNewCardput "False" into CheckNewCard-- adds desired date card to this stacklock screenset lockMessages to truehidePopUpgo to last cd of bg "Appointments"set cursor to busydoMenu "New Card"set name of this card to theDateItemsput theDateItems into theDateconvert theDateItems to long dateput theDateItems into bg field "Title"set lockMessages to falsesort cards of this bkgnd dateTime by bg field "Title"go cd theDateunlock screenput empty into CheckNewCardend extendon checkForTodayconvert the date to dateItemsset the visible of bg btn "Go To Today" to not ¬(it is the short name of this card)end checkForToday----- Utility Handlers --------------------------------------------on setCardToTodaysDate-- If there is only one card and no changes have-- been made then set the date on the card to today's dateif number of cards in this bkgnd is 1 and userFieldsAreEmpty() thenset cursor to watchput the long date into bg field "Title"setCardNameend ifend setCardToTodaysDateon setCardNameget background field "Title"convert it to dateItemsset the name of this card to itend setCardName----- Find Handlers ----------------------------------------------on findTextglobal AppointmentsFind,PopUpBtnOpen,PopUpFldOpenif AppointmentsFind is empty then exit findTextfind AppointmentsFindif the result is NOT empty thenbeepanswer "“" & AppointmentsFind & "” was not found." -- ∆exit findTextend ifget the short name of the foundFieldif (it contains "Pop-up NoteFld") and ¬(the visible of the foundField is false)then send "mouseUp FALSE" to bg btn id (last word of it)end findText----- Print Handlers ----------------------------------------------on printReport-- Requires handler: goToTodayanswer "Print appointments for:" with "Cancel" or "7 Days" or "This Day" --∆if it = "This Day" then get printOneReport() -- ∆else if it is "7 Days" then -- ∆put min(7,((number of cards of bg "Appointments") + 1) - the number of this card) into count--lock screenpush cardrepeat countif not printOneReport() then exit repeat -- user cancelledgo next cd of bg "Appointments"end repeatpop cardunlock screenend ifend printReportfunction printOneReportsend "drawCalendar " & quote & bg fld "Title" & quote to bg fld "Calendar"open report printing with template "Appointments" -- ∆if the result = "Cancel" then return falseprint cardif the result = "Cancel" then return falseclose printingreturn trueend printOneReport------- Pop-up Appointment Fields --------------------------------------------on hideShowPopUp trueOrFalse-- determines whether to pop or notglobal PopUpBtnOpenput PopUpBtnOpen into PopUpBtnlock screenif PopUpBtnOpen is not empty then hidePopUpif PopUpBtn is not (the short name of the target)then showPopUp trueOrFalseend hideShowPopUpon hidePopUp-- hides pop-ups that need hidingglobal PopUpBtnOpen,PopUpFldOpenif PopUpBtnOpen is empty then exit hidePopUpset hilite of bg btn PopUpBtnOpen to falsehide bg fld PopUpFldOpentransferText PopUpToFldput empty into PopUpBtnOpenput empty into PopUpFldOpenend hidePopUpon showPopUp trueOrFalse-- shows pop-ups that need showingglobal PopUpBtnOpen,PopUpFldOpenput popObject() into PopUpFldOpenput the short name of the target into PopUpBtnOpenset hilite of bg btn PopUpBtnOpen to trueshow bg fld PopUpFldOpentransferText fldToPopUpunlock screenif trueOrFalse is not "FALSE"then select text of bg fld PopUpFldOpenend showPopUpfunction popObject-- returns the short name of the pop-up fieldreturn "Pop-up NoteFld" && the ID of the targetend popObjecton transferText whichWay-- transfer text between pop-up and field and vice-versaglobal PopUpBtnOpen,PopUpFldOpenput char 2 to 3 of PopUpBtnOpen into lineNumberput char 1 of PopUpBtnOpen & "M Appointments" into fldNameif whichWay is "PopUpToFld" thenget char 1 to 19 of line 1 of bg fld PopUpFldOpenif char 1 to 19 of line lineNumber of bg fld fldName is not itthen put it into line lineNumber of bg fld fldNameif the last char of line lineNumber of bg fld fldName is "…"then delete last char of line lineNumber of bg fld fldNameif bg fld PopUpFldOpen is not empty thenput "…" after line lineNumber of bg fld fldNameend ifelse if whichWay is "fldToPopUp" thenput length of line lineNumber of bg fld fldName into limitget line lineNumber of bg fld fldNameif the last char of it is "…" thendelete last char of itsubtract 1 from limitend ifput it into char 1 to limit of line 1 of bg fld PopUpFldOpenend ifend transferTextfunction userFieldsAreEmpty-- return true if all of the user fields are emptyreturn (bg fld "AM Appointments" is empty) and ¬(bg fld "PM Appointments" is empty)end userFieldsAreEmpty</script>
